perm filename CMS6.RES[T,LSP] blob
sn#635674 filedate 1981-12-01 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 PL/I OPTIMIZER V1 R3.0 PTF 69 TIME: 03.19.50 DATE: 1 DEC 81
C00004 00003 DMSLIO740I EXECUTION BEGINS...
C00006 00004 KWIC: PROCEDURE OPTIONS (MAIN) KWI00010
C00027 ENDMK
C⊗;
PL/I OPTIMIZER V1 R3.0 PTF 69 TIME: 03.19.50 DATE: 1 DEC 81
OPTIONS SPECIFIED
OP OPT(2) F(I) S AG C GS MI('|') IS LC(60) NEST STMT NNUM LMSG STG;
COMPILER DIAGNOSTIC MESSAGES
ERROR ID L STMT MESSAGE DESCRIPTION
WARNING DIAGNOSTIC MESSAGES
IEL0916I W 1 ITEM(S) 'PASS','KEYWORDS' MAY BE UNINITIALIZED WHEN USED IN
THIS BLOCK.
IEL0916I W 19 ITEM(S) 'RESULT' MAY BE UNINITIALIZED WHEN USED IN THIS BLO
CK.
COMPILER INFORMATORY MESSAGES
IEL0533I I NO 'DECLARE' STATEMENT(S) FOR 'SYSPRINT','SYSIN','SUBSTR','
INDEX','PASS'.
IEL0541I I 1, 11, 19, 39, 52, 70 'ORDER' OPTION APPLIES TO THIS BLOCK. O
PTIMIZATION MAY BE INHIBITED.
END OF COMPILER DIAGNOSTIC MESSAGES
COMPILE TIME 0.05 MINS SPILL FILE: 0 RECORDS, SIZE 3491
R; T=3.28/4.03 03:20:27
DESLIO740I EXECUTION BEGINS...
ART
67-26020
COIPUTER
67-26020
78-74692
DATA
78-21002
74-9690
DATABASE
76-55633
HANDBOOK
74-9690
INFORMATION
279-1750
78-11078
78-40725
INTRODUCTION
76-55633
LIBRARIES
74-9690
MACHINE
81-6044
NEW
81-6044
PL/I
78-21002
78-15665
PROBLEM
78-74692
PROCESSING
279-1750
74-9690
PROGRAMMING
78-21002
78-15665
67-26020
RETRIEVAL
78-11078
78-40725
SOLVING
78-74692
SOUL
81-6044
STRUCTURED
78-15665
STRUCTURES
78-21002
SYSTEMS
76-55633
78-11078
KWIC: PROCEDURE OPTIONS (MAIN); KWI00010
/*A PROGRAM TO FORMAT A KWIC INDEX*/ KWI00020
KWI00030
DECLARE KWI00040
DIR(10) FIXED (3,0),/*DIRECTORY ARRAY*/ KWI00050
I FIXED (2,0),/*COUNTER*/ KWI00060
BIB CHAR (134) VARYING,/*BIBLIOGRAPHICAL MATERIAL*/ KWI00070
TRUE BIT (1),/*SWITCH TRANSLATION*/ KWI00080
FALSE BIT (1),/*SWITCH TRANSLATION*/ KWI00090
OKOK BIT (1),/*END FLAG*/ KWI00100
KEYWORDS(500,2) CHAR(50) VARYING,/*KWIC ELEMENTS*/ KWI00110
FILL FIXED BIN (15),/*COUNTER FOR ARRAY*/ KWI00120
STOPWORDS(7) VARYING CHAR(10) INIT ('A','AN','AND','FOR', KWI00130
'OF','THE','TO'),/*NON INDEXED TERMS*/ KWI00140
STOPWORDLENGTH FIXED BIN(15);/*SIZE OF STOPWD ARRAY*/ KWI00150 KWI00160
/*INITIALIZE VARIABLES*/ KWI00170
KWI00180
I = 0; KWI00190
DIR = 0; KWI00200
OKOK = '1'B; KWI00210
TRUE = '1'B; KWI00220
FALSE = '0'B; KWI00230
DIR(10) = 0; KWI00240
FILL = 1; KWI00250
STOPWORDLENGTH = 7; KWI00260
KWI00270
ON ENDFILE (SYSIN) OKOK = FALSE; KWI00280
KWI00290
KWI00300
GET EDIT ((DIR (I) DO I = 1 TO 9),BIB) KWI00310
(9 F(3,0),A(133)); KWI00320
KWI00330
MRCTIME:/*GRAB TITLE & LCCN OUT OF BIB MATERIAL*/ KWI00340
DO WHILE (OKOK); KWI00350
KWI00360
CALL SEPARATE (SUBSTR(BIB,DIR(3),DIR(4)-DIR(3)), KWI00370
SUBSTR(BIB,DIR(7),DIR(8)-DIR(7)),KEYWORDS); KWI00380
GET EDIT ((DIR (I) DO I = 1 TO 9),BIB) KWI00390
(9 F(3,0),A(133)); KWI00400
END MRCTIME; KWI00410
KWI00420
CALL SORT(KEYWORDS,FILL-1); KWI00430
KWI00440
CALL PRINT←IT(KEYWORDS,FILL-1); KWI00450
KWI00460
KWI004↔0
/*DIVIDE TITLES INTO KEYWORDS & STIAK IN AN ARRAY WITH LCCN*- KWI00480
SEPARATE: PROCEDURE (DITLE,LCCN,KEYWORDS); KWI00490
KWI00500
DECLARE KWI00510
TITLE CHAR(50) VARYINC, KWI00520 α KEYWORDS(*,*) CHAR (50) VARYIJG, KWA00530
LCCF CHAR(12) VARYING, KWI0054@~∀@@@@@@A!∂'%)∪∨≤αα~&@λXBαC5FαJB∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧ 5<KεεS+Q$ααα∧∧αααλ(U≥,JD∧)5λ
ε∃+λλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧ ur,εε-HλεBα MKRE 1), KWI00570
α WORD CHAR(50) VARYIJG; KWI00580
KGI005)0
KWI00600
MORE = TRUE; KWI00610 α POSITIMN =IH
`Q)∪)1
PN@≤Rv@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@↓↔/∩`@ld`~(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A↔/$``lf@~∀@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A-/∩``Xh`~∀@@@@↓'β≠+Iβ∩tA⊃≡A/⊃%→
@Q5∨%
Rl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A↔/∩@`lj`4∀@@@@@A∪_A!∨'%)∪∨≤↓<z@@↓)⊃ ≤<Uπ⊃∨@A+ AQ∪!
(Z@@@@@@@@@@@@@@@@@@@@@A↔]∩``lX`~)α↓↓↓↓α↓↓↓α<zJ⊃↓hαNV
≥"I"RM"2∃1
bB>NM"&.→αi↓E%Z↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓αα.↑%β↓Y]@hQ↓↓↓α↓↓↓↓αα⊗"N*↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓α.<IAAYA4)↓α↓↓↓↓α↓↓↓↓αα∩=mα↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓∧Z↑%Aβ1e@4R↓↓↓↓α↓↓↓↓α↓↓α6⎇∩∃↓u∧2ε2N+Y↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓α.↑K↓A]Ah)↓↓α↓↓↓↓α↓↓↓↓¬:>J⊃βiαR&$b∃m↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓α]:%AA8ε∪HαHλ∧∧λλλ∧∧λλλ∧λ3Qεd∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :p, εvLβ"D∧λλλ¬UTpp)d⊃StD
u∪t
ytQ∀e%hλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧∩qr&ε
ll↓QHλλ∧∧⊂p3 D∪13((4H
ytQβ
:∪t∃izQ∀k
:∪t∃izQ∪⊃)hβj$,RESULT)3 KUI00740
KWI0075 4⊂ ↓↓α↓α&→αBJεNαYE"βTλd @∀q*$
⊂⊃3D¬h¬#$S&⊂ i∀ h A@ππ ¬"ε
2*αP≤%5%rαα∧∧ααα∧∧ααα :tKβ∧¬`≠ ∧¬∀@@@@@A∩w0λ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :β` 004ε`≥@hQ↓↓↓α↓↓↓α\*f@<z(E~Di→Dbc∃∀βj¬yz$#Z∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧αα∧8¬r&ε
n∧↓QHλλ∧∧λλλ 865sj(α)T#∩d∧@_XHR@zA1∞∞e0λ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλ∩jY,
g⊗β"H∧∧λλλ∧∧⊃R3 D∂(⊃I→α + 10⊗@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A↔/∩@`p`@h!↓↓α↓↓↓↓∧*2#4∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα :tKβ¬ &↓α@
TITLE 9 @'U
NR⊂BR&Rd)2B≡≤JR&>p∧αZβ∃↔2αα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧αα∧αp dL_≤⊃λβE⊂⊂⊂λ⊂('iRh ON 8
A∪9 !E"&@$β⊃+∧t j.d∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλ∩jY,λ∞ε6β"H∧∧λλ⊃)hα⊂!`Sh¬RAI8ε@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A↔/∩@`ph`4⊂ ↓α,r⊃αN-αεJε$)`~α∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα :tKβ¬
&↓ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂∩hπ@∩`@pl`~(@A6,j∀4NH
Spq(J4Q(¬ 5⊃3%Jq0
,L∧Y% M+⊂∩QKY↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓α8¬r&ε∞λ @0
DECLARE KTπ∩`@`p`~∀@@@@@A' PPTRA
⊃β$@ b`@%¬2εJ@→→d:@λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧ ur,επ∞,β!⊂⊂⊂⊂λ⊂⊂⊂'λ εIXED BINARP∩@ b`∃%b↓0~Tiub∧|d
5$⎇λ¬sj(α)P$Sα ARRAY*/ KWI00 2@`⊂∀$∧ααα∧∧α∧Jλi∃D1λ⊂I→β i,H∀_ZTK↔P
ARRAP∩A
_∞@,h¬⊃*%Khλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :β` 00910
GOGH∂∂≡↓
&QαAE%1zRN@<α5⊂i¬Khλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧⊂¬`↔I0092⊂
R@ ',bQα
M!↓!EJa↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓∧ZP≤K∧∧∞&6β"H∧∧λλλ∧∧⊂5⊃)T⊂r⊂*$λ∧⊂∃0) VARYINGl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A↔/∩@`rh`4⊂ ↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓α]:%AAβ⊗S@ ¬⊂⊂ β*INITIALIX¬∃ααh∃∀L_)D-~αKh∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :β` 0090 `~(@@@@↓%β',bQ↓u∧2ε %8W2αα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧αα∧8¬r&ε∞-d↓QHλλ∧∧⊃sqiXpπP≡H*)*bNβ KTπ∩`@dp`~∀@@@A$@p∃↓α⊂∞d∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧ ur,επ,,β!⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂%kRX_X_ ∧¬∀@@@A$*N@#$λD`4∃r∩)HαP∀(I <=L∧R@L↓∂⊂≡≡|:0~Kαhλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :β` 01010
IF ⊃∪Q ⊂∃↓βPλ
85
∩%∃(⊂
$⊃dε DO8εA∂∨≥_∞≡≥βiα4→J4+Z∧∧ααα∧∧ααα∧∧ααα∧∧αα∧αp dL_X⊂∩@~∀@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI '+→P@p∃ααJ%,+αhλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλ∩j@dX⊂⊃@f`~∀@@@@@@@@@@@@@@@@@@@@@@@@@A ≥⊂p
↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓α.↑K↓EAQh ∩α∧∧ααα∧∧∧JβT ∩αZ∧∧ ≥H⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂%kRX_X~L∧¬
END TEST; KP∂%β AY@hQ↓α⊗t!α6⊗l∩⊗I@4∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧ααα∧∧αα∧αp dL_X∪@0
KTπ∩`@λεβCQ$α¬≤βtUπ⊂( ∩O@π +I
@@"
∩Jε@∃ID`8h∧]@ KWI01090
λ∧⊂∀$∧ααα∧λD,≤β⊂4HTλλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :β` 01100
ARRAY(*, ∀R↓∞"ε⊂¬β+αα(∃H~T∧dg⊃T∪U%Qlkb)H⊂ε LC@π⊂~MRy↓↓↓α↓↓↓↓α↓↓↓↓α↓↓α∞αy∪β ⊗⊂ ↓QHλλ∧∧λλλ∧
⊃34∧λp∧ i
~X∀P∃αARYIL¬≥Eu$4⎇$
4E,hiDL@Qh⊂*)u3Q∧λ4TP+∀⊂5⊃)Zh¬↔Pλ⊂⊂⊂%UβI0 "β I@4R↓↓↓↓α↓↓↓αdz~∧i≠∧,"λ)∀`% -*%EhT∪i→β*"iλ* ∂ ARRAY* KWI0113 4⊂ ↓↓α↓↓↓↓ααBεN~α~&@λXB∧∀→`
ε⊗αTV↔J& ∂OKIH
∞A=(
-$λ∃∃∀≠∃"`4λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λ∩ui⊗ , ~ ∧¬∀@@@@@@A)∧2&b⊗ ∧∧)3J_MTV↔U⊂βH∂+≥Q $T↑@@@@@@@@@@@@@@@@@@@@@@@@@@@@↓↔ ≡⊗ε∪ ,β"D∧λλλ∧∧λλ⊃i@P!$j
_T]GJ)kdj⊂βH ∀↑@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Aπ<IAEE34)↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓∧Z↑%A P≠Q$ααα∧λt`4∂(∃
*1*`⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ⊂⊂⊂⊂λ%kdX XX⊂⊂
λ KWI011d`⊂∀$∧ααα zU%|βqWj9βi*)Nα DO PASS 9 "ααR=αdz~αβ( $∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :p, && β"D∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λ⊂ d∩d∧E (GH∞Bvα↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓α.αy∪β &⊂ ↓QHλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλ∩jy,λ$F&β"H∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧λqh∂$λP3∀hWhλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧ ur,ε⊗Llβ!$λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λ∩ui⊗ ,Eε↓ Hλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ∧∧λλλ :r, &&,β"D∧λλλλX0r↔jλ4tnDλ⊃h∩Dπ(λ
Ih∪∪h4λεP(⊂ii]@ KWI01260
IF ARRAY(J,1) > ARRAY(J + 1,1) THEN KWI01270
DO; KWI01280
GO = TRUE; KWI01290
α TEH @tAβ%%¬2Q∀XDRv@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@↓↔/∩`Df``~(@@@@@@@@Aβ%%¬2Q∀XDR@zA¬%%β2!∀@V@DXbRv@@@@@@@@@@@@@@@@@@@@@@@@@A↔∂$`bfb@~∀@@@@@@@@AβI%β2Q(@V@b0bR@zααR⊗6 ARRAY(J + 1,2) = TEMP; KWI01350
END; KWI01360
END EACH←PASS; KWI01370
END OUT←OF←SORTS; KWI01380
END SORT; KWI01390
KWI01400
PRINT←IT: PROCEDURE(WORDS,FINDEM); KWI01410
KWI01420
DECLARE KWI01430
WORDS(*,*) CHAR(50) VARYING, KWI01440
FINDEM FIXED BIN(15); KWI01450
KWI01460
KWI01470
PUT SKIP LIST KWI01480
(WORDS(1,1)); KWI01490
PUT SKIP LIST KWI01500
(' '||WORDS(1,2)); KWI01510
KWI01520
LIST: DO I = 2 TO FINDEM; KWI01530
IF WORDS(I,1) ↑= WORDS((I - 1),1) THEN KWI01540
DO; KWI01550
PUT SKIP(2) LIST (WORDS(I,1)); KWI01560
PUT SKIP LIST (' '||WORDS(I,2)); KWI01570
END; KWI01580
ELSE PUT SKIP LIST (' '||WORDS(I,2)); KWI01590
END LIST; KWI01600
END PRINT←IT; KWI01610
END KWIC; KWI01620